home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / bvf.h < prev    next >
C/C++ Source or Header  |  1992-06-18  |  574b  |  24 lines

  1. /* 
  2.   * Definition of Bytevector functions
  3.   *
  4. */
  5.  
  6. /* External interface */
  7. #ifdef BCI
  8.  
  9. LispObject apply_nary_bytefunction(LispObject */*stacktop*/, int args, LispObject fn);
  10. void add_boot_module(LispObject);
  11.  
  12. /* Internal reperesentation */
  13. #define N_SLOTS_IN_BYTEFUNCTION  4
  14.  
  15. /* represented as: module #, offset */
  16. /* better would be codevector, offset, static vector ? */
  17.  
  18. #define bytefunction_env(bvf)        slotref(bvf,0)
  19. #define bytefunction_offset(bvf)    slotref(bvf,1)
  20. #define bytefunction_codenum(bvf)    slotref(bvf,2)
  21. #define bytefunction_nargs(bvf)        slotref(bvf,3)
  22.  
  23. #endif
  24.